home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Object.dxr / 00088.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  2.2 KB  |  78 lines
  1. on enterFrame
  2.   set mouseposition to point(the mouseH, the mouseV)
  3.   if inside(mouseposition, rect(0, 0, 30, 30)) then
  4.     changecursor(3, "CursorUp")
  5.     scrollleft("Corner")
  6.     scrollup("Corner")
  7.     setscrollbox()
  8.   else
  9.     if inside(mouseposition, rect(610, 0, 640, 30)) then
  10.       changecursor(3, "CursorUp")
  11.       scrollright("Corner")
  12.       scrollup("Corner")
  13.       setscrollbox()
  14.     else
  15.       if inside(mouseposition, rect(0, 450, 30, 480)) then
  16.         changecursor(3, "CursorDown")
  17.         scrollleft("Corner")
  18.         scrolldown("Corner")
  19.         setscrollbox()
  20.       else
  21.         if inside(mouseposition, rect(610, 450, 640, 480)) then
  22.           changecursor(3, "CursorDown")
  23.           scrollright("Corner")
  24.           scrolldown("Corner")
  25.           setscrollbox()
  26.         else
  27.           if inside(mouseposition, rect(30, 0, 610, 30)) then
  28.             changecursor(3, "CursorUp")
  29.             scrollup()
  30.           else
  31.             if inside(mouseposition, rect(30, 450, 610, 480)) then
  32.               changecursor(3, "CursorDown")
  33.               scrolldown()
  34.             else
  35.               if inside(mouseposition, rect(0, 30, 30, 450)) then
  36.                 changecursor(3, "CursorLeft")
  37.                 scrollleft()
  38.               else
  39.                 if inside(mouseposition, rect(610, 30, 640, 450)) then
  40.                   changecursor(3, "CursorRight")
  41.                   scrollright()
  42.                 else
  43.                   changecursor(3, "Shrink")
  44.                 end if
  45.               end if
  46.             end if
  47.           end if
  48.         end if
  49.       end if
  50.     end if
  51.   end if
  52. end
  53.  
  54. on exitFrame
  55.   go(the frame)
  56. end
  57.  
  58. on changecursor spriteNum, cname
  59.   puppetSprite(spriteNum, 1)
  60.   set the memberNum of sprite spriteNum to the number of member cname
  61.   set the locH of sprite spriteNum to the mouseH
  62.   set the locV of sprite spriteNum to the mouseV
  63.   updateStage()
  64. end
  65.  
  66. on mouseDown
  67.   global contentsprite, objnamesprite
  68.   sound stop 2
  69.   puppetSprite(2, 0)
  70.   puppetSprite(3, 0)
  71.   set the visible of sprite 1 to 1
  72.   set the visible of sprite contentsprite to 1
  73.   set the visible of sprite objnamesprite to 1
  74.   set the cursor of sprite 2 to -1
  75.   set the volume of sound 1 to 110
  76.   go("Restart")
  77. end
  78.